home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Education / Perseus Stacks / Bibliography / card_5275.txt < prev    next >
Encoding:
Text File  |  1987-09-27  |  4.0 KB  |  206 lines
  1. -- card: 5275 from stack: in
  2. -- bmap block id: 8268
  3. -- flags: 0000
  4. -- background id: 4609
  5. -- name: 
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=282 top=270 right=292 bottom=361
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Sort
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   --put "this doesn't work yet"into message box
  23.   answer "Sort all entries by :" with "Author" or "Title" or "Cancel"
  24.   --if first word of  field it is "A" then
  25.   --sort by second word of  field it
  26.   --else
  27.   sort by first word of field it
  28.   --end if
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 8 (button)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=482 top=7 right=21 bottom=500
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 16560 / 16560
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Next
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   go to next card
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 9 (button)
  53. -- low flags: 00
  54. -- high flags: 0000
  55. -- rect: left=458 top=7 right=22 bottom=478
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 15420 / 15420
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Prev
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   go to prev card
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 16 (button)
  72. -- low flags: 00
  73. -- high flags: 8003
  74. -- rect: left=387 top=269 right=292 bottom=462
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Find
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   visual effect venetian blinds
  86.   ask "What do you want to look for?" with ""
  87.   if it is "" then
  88.   else
  89.     push card
  90.     find it
  91.     if the result is "not found" then
  92.       put "not found"
  93.     end if
  94.   end if
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 17 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=9 top=317 right=342 bottom=34
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 27308 / 27308
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: 
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   go home
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 18 (button)
  119. -- low flags: 00
  120. -- high flags: 8003
  121. -- rect: left=184 top=271 right=293 bottom=263
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Export
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   answer "Export to what format?" with "MS Word" or "Tagged"
  133.   answer "Sorry, exporting not implemented yet"
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 19 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=480 top=26 right=44 bottom=502
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 6720 / 6720
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: 
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   goback
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 23 (field)
  158. -- low flags: 80
  159. -- high flags: 0007
  160. -- rect: left=98 top=70 right=289 bottom=411
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 0
  164. -- font id: 2
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Info
  169.  
  170.  
  171. -- part 24 (button)
  172. -- low flags: 80
  173. -- high flags: 8003
  174. -- rect: left=357 top=268 right=286 bottom=392
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: OK
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   hide card button "OK"
  186.   hide card field "info"
  187.   show background button "info?"
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part contents for background part 12
  193. ----- text -----
  194. Texts
  195.  
  196. -- part contents for background part 13
  197. ----- text -----
  198. Bibliography
  199.  
  200. -- part contents for background part 14
  201. ----- text -----
  202. Index
  203.  
  204. -- part contents for background part 15
  205. ----- text -----
  206. 1